home *** CD-ROM | disk | FTP | other *** search
- // Borland C++ Builder
- // Copyright (c) 1995, 1998 by Borland International
- // All rights reserved
-
- // (DO NOT EDIT: machine generated header) 'LibIntf.pas' rev: 3.00
-
- #ifndef LibIntfHPP
- #define LibIntfHPP
- #include <FileIntf.hpp>
- #include <EditIntf.hpp>
- #include <Exptintf.hpp>
- #include <ToolIntf.hpp>
- #include <DsgnIntf.hpp>
- #include <TypInfo.hpp>
- #include <VirtIntf.hpp>
- #include <Forms.hpp>
- #include <Graphics.hpp>
- #include <Controls.hpp>
- #include <Classes.hpp>
- #include <SysUtils.hpp>
- #include <Windows.hpp>
- #include <SysInit.hpp>
- #include <System.hpp>
-
- //-- user supplied -----------------------------------------------------------
-
- namespace Libintf
- {
- //-- type declarations -------------------------------------------------------
- enum TDesignDialog { ddAlign, ddSize, ddScale, ddTabOrder, ddCreationOrder, ddSaveTemplate };
-
- struct TDesignerOptions
- {
- bool DisplayGrid;
- bool SnapToGrid;
- int GridSizeX;
- int GridSizeY;
- bool ShowComponentCaptions;
- } ;
-
- class DELPHICLASS TIPaletteItem;
- class DELPHICLASS TIModule;
- class PASCALIMPLEMENTATION TIPaletteItem : public Virtintf::TInterface
- {
- typedef Virtintf::TInterface inherited;
-
- public:
- virtual Classes::TComponent* __fastcall CreateComponent(Classes::TComponent* Owner, Classes::TComponent*
- Parent, TIModule* Module, const Windows::TRect &Rect) = 0;
- virtual void __fastcall Paint(Graphics::TCanvas* Canvas, int X, int Y) = 0;
- public:
- /* TInterface.Create */ __fastcall TIPaletteItem(void) : Virtintf::TInterface() { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~TIPaletteItem(void) { }
-
- };
-
- class DELPHICLASS TIDelphiIDE;
- class PASCALIMPLEMENTATION TIDelphiIDE : public Virtintf::TInterface
- {
- typedef Virtintf::TInterface inherited;
-
- public:
- virtual void __fastcall ActiveFormModified(void) = 0;
- virtual void __fastcall ComponentRenamed(const System::AnsiString CurName, const System::AnsiString
- NewName) = 0;
- virtual void __fastcall ExecDesignDialog(TDesignDialog DesignDialog) = 0;
- virtual void __fastcall FormActivated(void) = 0;
- virtual HWND __fastcall GetAppHandle(void) = 0;
- virtual System::AnsiString __fastcall GetPathAndBaseExeName(void) = 0;
- virtual System::AnsiString __fastcall GetBaseRegKey(void) = 0;
- virtual bool __fastcall GetToolSelected(void) = 0;
- virtual TIPaletteItem* __fastcall GetCurCompClass(void) = 0;
- virtual TIPaletteItem* __fastcall GetPaletteItem(System::TMetaClass* ComponentClass) = 0;
- virtual int __fastcall GetCurTime(void) = 0;
- virtual void __fastcall GetDesignerOptions(TDesignerOptions &Options) = 0;
- virtual Windows::TRect __fastcall GetMainWindowSize(void) = 0;
- virtual tagPOINT __fastcall GetWorkspaceOrigin(void) = 0;
- virtual bool __fastcall LockState(void) = 0;
- virtual void __fastcall ModalEdit(char EditKey, void * ReturnWindow) = 0;
- virtual void __fastcall OpenForm(const System::AnsiString FormName, bool Show) = 0;
- virtual void __fastcall RaiseException(const System::AnsiString Message) = 0;
- virtual void __fastcall ResetCompClass(void) = 0;
- virtual void __fastcall SelectionChanged(void) = 0;
- virtual void __fastcall ShowClassHelp(const System::AnsiString ClassName) = 0;
- virtual void __fastcall SelectItemName(const System::AnsiString PropertyName) = 0;
- virtual void __fastcall ValidateActiveModule(void) = 0;
- virtual void __fastcall AddExpert(Exptintf::TIExpert* Expert) = 0;
- virtual void __fastcall RemoveExpert(Exptintf::TIExpert* Expert) = 0;
- virtual Toolintf::TIToolServices* __fastcall GetToolServices(void) = 0;
- virtual void __fastcall ExpertsLoaded(void) = 0;
- virtual Fileintf::TIVirtualFileSystem* __fastcall GetFileSystem(const System::AnsiString Ident) = 0
- ;
- virtual System::AnsiString __fastcall MakeBackupFileName(const System::AnsiString FileName) = 0;
- virtual bool __fastcall CreateBackupFile(void) = 0;
- virtual bool __fastcall WinHelp(const System::AnsiString HelpFile, int Command, int Data) = 0;
- virtual void __fastcall ValidateFormEdit(void) = 0;
- public:
- /* TInterface.Create */ __fastcall TIDelphiIDE(void) : Virtintf::TInterface() { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~TIDelphiIDE(void) { }
-
- };
-
- class DELPHICLASS TICompClass;
- class PASCALIMPLEMENTATION TICompClass : public Virtintf::TInterface
- {
- typedef Virtintf::TInterface inherited;
-
- public:
- virtual tagPOINT __fastcall GetBitmapPos(bool Selected) = 0;
- virtual System::AnsiString __fastcall GetClassName(void) = 0;
- virtual System::AnsiString __fastcall GetDefaultPage(void) = 0;
- virtual int __fastcall GetModuleIndex(void) = 0;
- public:
- /* TInterface.Create */ __fastcall TICompClass(void) : Virtintf::TInterface() { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~TICompClass(void) { }
-
- };
-
- enum TPropKind { pkProperties, pkEvents };
-
- class DELPHICLASS TIProperty;
- typedef void __fastcall (__closure *TGetPropProc)(TIProperty* Prop);
-
- enum LibIntf__4 { fsVisible, fsIconic, fsZoomed };
-
- typedef Set<LibIntf__4, fsVisible, fsZoomed> TFormState;
-
- enum TEditAction { eaUndo, eaRedo, eaCut, eaCopy, eaPaste, eaDelete, eaSelectAll, eaPrint, eaBringToFront,
- eaSendToBack, eaAlignToGrid };
-
- enum LibIntf__5 { esCanUndo, esCanRedo, esCanCut, esCanCopy, esCanPaste, esCanDelete, esCanZOrder, esCanAlignGrid,
- esCanEditOle, esCanTabOrder, esCanCreationOrder, esCanPrint, esCanSelectAll };
-
- typedef Set<LibIntf__5, esCanUndo, esCanSelectAll> TEditState;
-
- enum TShowState { ssNormal, ssMinimized, ssMaximized };
-
- enum TAffect { afTop, afLeft, afBottom, afRight, afHCenter, afVCenter, afHSpace, afVSpace, afHWinCenter,
- afVWinCenter, afNothing };
-
- enum TSizeAffect { asHGrow, asHShrink, asHAbsolute, asVGrow, asVShrink, asVAbsolute, asNothing };
-
- class DELPHICLASS TIFile;
- class PASCALIMPLEMENTATION TIFile : public Virtintf::TInterface
- {
- typedef Virtintf::TInterface inherited;
-
- public:
- virtual Virtintf::TIStream* __fastcall FormFileOpen(void) = 0;
- virtual System::AnsiString __fastcall GetFileName(void) = 0;
- virtual int __fastcall GetTimeAtLoad(void) = 0;
- virtual int __fastcall GetModifyTime(void) = 0;
- virtual bool __fastcall CheckFileDate(void) = 0;
- virtual void __fastcall Rename(const System::AnsiString NewFileName) = 0;
- virtual void __fastcall Save(void) = 0;
- public:
- /* TInterface.Create */ __fastcall TIFile(void) : Virtintf::TInterface() { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~TIFile(void) { }
-
- };
-
- class DELPHICLASS TIForm;
- typedef void __fastcall (__closure *TGetFormProc)(TIForm* AForm);
-
- class DELPHICLASS TICompInfo;
- class PASCALIMPLEMENTATION TIForm : public Libintf::TIFile
- {
- typedef Libintf::TIFile inherited;
-
- protected:
- virtual Dsgnintf::TFormDesigner* __fastcall GetDesigner(void) = 0;
-
- public:
- virtual void __fastcall Align(TAffect Affect) = 0;
- virtual void __fastcall CreateComponent(TIPaletteItem* Item) = 0;
- virtual System::AnsiString __fastcall FindCompClass(const System::AnsiString CompName) = 0;
- virtual System::AnsiString __fastcall GetAncestorName(void) = 0;
- virtual int __fastcall GetCompCount(void) = 0;
- virtual void __fastcall GetDependentForms(TGetFormProc Proc) = 0;
- virtual System::AnsiString __fastcall GetDesignClassName(void) = 0;
- virtual void __fastcall GetFormDependencies(TGetFormProc Proc) = 0;
- virtual void * __fastcall GetNVComp(int Index) = 0;
- virtual TICompInfo* __fastcall GetCompInfo(int Index) = 0;
- virtual TIModule* __fastcall GetModule(void) = 0;
- virtual System::AnsiString __fastcall GetCompName(int Index) = 0;
- virtual System::AnsiString __fastcall GetFileSystem(void) = 0;
- virtual Editintf::TIFormInterface* __fastcall GetFormInterface(void) = 0;
- virtual System::AnsiString __fastcall GetFormName(void) = 0;
- virtual HBITMAP __fastcall GetFormImage(void) = 0;
- virtual void __fastcall GetFormUnits(Classes::TGetStrProc Proc) = 0;
- virtual TFormState __fastcall GetState(void) = 0;
- virtual int __fastcall GetTabCompCount(void) = 0;
- virtual bool __fastcall GetTabCompInfo(int Order, System::AnsiString &Name, void * &Comp) = 0;
- virtual int __fastcall GetObjectMenuItemCount(void) = 0;
- virtual System::AnsiString __fastcall GetObjectMenuItem(int Index) = 0;
- virtual void __fastcall ObjectMenuAction(int Index) = 0;
- virtual void __fastcall Hide(void) = 0;
- virtual void __fastcall GoDormant(void) = 0;
- virtual void __fastcall RenameFormMethod(const System::AnsiString CurName, const System::AnsiString
- NewName) = 0;
- virtual void __fastcall RemoveDependentLinks(void) = 0;
- virtual void __fastcall Scale(int Factor) = 0;
- virtual void __fastcall SetFileSystem(const System::AnsiString FileSystem) = 0;
- virtual void __fastcall SetFormName(const System::AnsiString AName) = 0;
- virtual void __fastcall SetSelection(const System::AnsiString Name) = 0;
- virtual void __fastcall SetNVComp(void * Comp, int Order) = 0;
- virtual void __fastcall SetTabCompOrder(void * Comp, int Order) = 0;
- virtual void __fastcall Show(void) = 0;
- virtual void __fastcall ShowAs(TShowState ShowState) = 0;
- virtual void __fastcall Size(TSizeAffect Affect, int Value) = 0;
- __property Dsgnintf::TFormDesigner* Designer = {read=GetDesigner};
- public:
- /* TInterface.Create */ __fastcall TIForm(void) : Libintf::TIFile() { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~TIForm(void) { }
-
- };
-
- class DELPHICLASS TDragTarget;
- class PASCALIMPLEMENTATION TDragTarget : public System::TObject
- {
- typedef System::TObject inherited;
-
- private:
- Dsgnintf::TFormDesigner* FDesigner;
-
- public:
- __fastcall virtual TDragTarget(Dsgnintf::TFormDesigner* ADesigner);
- virtual bool __fastcall DragOver(System::TObject* Target, System::TObject* Source, int X, int Y, Controls::TDragState
- State) = 0;
- virtual void __fastcall DragDrop(System::TObject* Target, System::TObject* Source, int X, int Y) = 0
- ;
- __property Dsgnintf::TFormDesigner* Designer = {read=FDesigner};
- public:
- /* TObject.Destroy */ __fastcall virtual ~TDragTarget(void) { }
-
- };
-
- typedef System::TMetaClass*TDragTargetClass;
-
- class DELPHICLASS TILibrary;
- class PASCALIMPLEMENTATION TILibrary : public Virtintf::TInterface
- {
- typedef Virtintf::TInterface inherited;
-
- public:
- virtual void __fastcall CopySelectionToStream(Classes::TMemoryStream* S) = 0;
- virtual TIForm* __fastcall CreateForm(TIModule* AModule, const System::AnsiString AFileName, bool Existing
- , const System::AnsiString AFormName, const System::AnsiString AAncestor, const System::AnsiString
- AFileSystem) = 0;
- virtual TIForm* __fastcall CreateFromStream(TIModule* AModule, const System::AnsiString AFileName,
- const System::AnsiString AFileSystem, Virtintf::TIStream* IStream) = 0;
- virtual TIForm* __fastcall CreateNewForm(TIModule* AModule, const System::AnsiString AFileName, _di_IUnknown
- Creator) = 0;
- virtual void __fastcall DesignerOptionsChanged(void) = 0;
- virtual bool __fastcall EditAction(TEditAction Action) = 0;
- virtual TIFile* __fastcall FindFile(const System::AnsiString FileName) = 0;
- virtual TIForm* __fastcall FindForm(const System::AnsiString FormName) = 0;
- virtual TIForm* __fastcall GetActiveForm(void) = 0;
- virtual void __fastcall GetClassUnits(const System::AnsiString ClassName, Classes::TGetStrProc Proc
- ) = 0;
- virtual TICompClass* __fastcall GetCompClass(int Index) = 0;
- virtual int __fastcall GetCompClassCount(void) = 0;
- virtual void __fastcall GetCompHierarchy(Classes::TGetStrProc Proc) = 0;
- virtual HBITMAP __fastcall GetComponentBitmap(void) = 0;
- virtual TEditState __fastcall GetEditState(void) = 0;
- virtual System::AnsiString __fastcall GetFirstSelectionType(void) = 0;
- virtual void __fastcall GetFormNames(Classes::TGetStrProc Proc) = 0;
- virtual int __fastcall GetModuleCount(void) = 0;
- virtual System::AnsiString __fastcall GetModuleName(int Index) = 0;
- virtual bool __fastcall GetOleCtrlHelp(const System::AnsiString Member, int &HelpCtx, System::AnsiString
- &HelpFile) = 0;
- virtual void __fastcall GetProperties(TPropKind PropKind, TGetPropProc Proc) = 0;
- virtual System::AnsiString __fastcall GetSelectionName(void) = 0;
- virtual System::AnsiString __fastcall GetSelectionType(void) = 0;
- virtual void __fastcall HideWindows(void) = 0;
- virtual void __fastcall IsDesignMsg(tagMSG &Msg, bool &Handled) = 0;
- virtual bool __fastcall IsTopmostForm(HWND Wnd) = 0;
- virtual bool __fastcall IsValidTemplateSelection(void) = 0;
- virtual void __fastcall ModalEditDone(void * ReturnWindow) = 0;
- virtual void __fastcall PasteSelectionFromStream(Classes::TMemoryStream* S, Classes::TComponent* Parent
- , const Windows::TRect &Rect) = 0;
- virtual void __fastcall RaiseException(const System::AnsiString Message) = 0;
- virtual void __fastcall RegisterDesignWindow(Forms::TForm* Window) = 0;
- virtual void __fastcall RegisterDragTarget(const System::AnsiString SourceName, System::TMetaClass*
- TargetClass) = 0;
- virtual void __fastcall ShowWindows(void) = 0;
- virtual void __fastcall SetLockState(bool State) = 0;
- virtual void __fastcall SetProjectName(const System::AnsiString Name) = 0;
- virtual void __fastcall GetSelection(Dsgnintf::TComponentList* ASelection) = 0;
- virtual void __fastcall SetSelection(Forms::TDesigner* Designer, Forms::TForm* DesignWindow, Dsgnintf::TComponentList*
- ASelection) = 0;
- virtual void __fastcall UnregisterDesignWindow(Forms::TForm* Window) = 0;
- virtual void __fastcall UnregisterExpertGroup(int Group) = 0;
- public:
- /* TInterface.Create */ __fastcall TILibrary(void) : Virtintf::TInterface() { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~TILibrary(void) { }
-
- };
-
- class PASCALIMPLEMENTATION TIModule : public Virtintf::TInterface
- {
- typedef Virtintf::TInterface inherited;
-
- public:
- virtual void __fastcall Activate(bool IsForm) = 0;
- virtual void __fastcall CreateMethod(const System::AnsiString Name, Typinfo::PTypeData TypeData) = 0
- ;
- virtual void __fastcall FormModified(void) = 0;
- virtual System::AnsiString __fastcall GetAncestorClassName(const System::AnsiString ClassName) = 0;
-
- virtual void __fastcall GetMethods(Typinfo::PTypeData TypeData, Classes::TGetStrProc Proc) = 0;
- virtual bool __fastcall FormIsTopmost(void) = 0;
- virtual void __fastcall FormResurrected(void) = 0;
- virtual bool __fastcall MethodExists(const System::AnsiString Name) = 0;
- virtual void __fastcall RenameComponent(TICompInfo* CompInfo, const System::AnsiString CurName, const
- System::AnsiString NewName) = 0;
- virtual void __fastcall RenameForm(TICompInfo* CompInfo, const System::AnsiString NewName) = 0;
- virtual void __fastcall RenameMethod(const System::AnsiString CurName, const System::AnsiString NewName
- ) = 0;
- virtual void __fastcall ShowMethod(const System::AnsiString Name) = 0;
- virtual void __fastcall GetImportedForms(Classes::TGetStrProc Proc) = 0;
- virtual void __fastcall ImportForm(const System::AnsiString FormName) = 0;
- virtual void __fastcall Notify(Editintf::TNotifyCode NotifyCode) = 0;
- virtual void __fastcall SwapSourceFormView(void) = 0;
- virtual System::AnsiString __fastcall GetMethod(const System::AnsiString MethodName) = 0;
- virtual void __fastcall AddMethods(System::AnsiString Methods, Classes::TStrings* Replacements, Classes::TStrings*
- MethodNames) = 0;
- virtual bool __fastcall HasInterface(void) = 0;
- virtual bool __fastcall InterfaceMemberExists(const System::AnsiString Name) = 0;
- virtual void __fastcall AddToInterface(int InvKind, const System::AnsiString Name, Word VT, const System::AnsiString
- TypeInfo) = 0;
- virtual void __fastcall GetProjectModules(Classes::TGetModuleProc Proc) = 0;
- public:
- /* TInterface.Create */ __fastcall TIModule(void) : Virtintf::TInterface() { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~TIModule(void) { }
-
- };
-
- class PASCALIMPLEMENTATION TIProperty : public Virtintf::TInterface
- {
- typedef Virtintf::TInterface inherited;
-
- public:
- virtual void __fastcall Activate(void) = 0;
- virtual bool __fastcall AllEqual(void) = 0;
- virtual void __fastcall Edit(void) = 0;
- virtual Dsgnintf::TPropertyAttributes __fastcall GetAttributes(void) = 0;
- virtual System::AnsiString __fastcall GetCompClassName(void) = 0;
- virtual int __fastcall GetEditLimit(void) = 0;
- virtual bool __fastcall GetEditValue(System::AnsiString &Value) = 0;
- virtual System::AnsiString __fastcall GetName(void) = 0;
- virtual void __fastcall GetProperties(TGetPropProc Proc) = 0;
- virtual Typinfo::PTypeInfo __fastcall GetPropType(void) = 0;
- virtual System::AnsiString __fastcall GetValue(void) = 0;
- virtual void __fastcall GetValues(Classes::TGetStrProc Proc) = 0;
- virtual void __fastcall Revert(void) = 0;
- virtual void __fastcall SetValue(const System::AnsiString Value) = 0;
- virtual System::TMetaClass* __fastcall GetCompClass(void) = 0;
- public:
- /* TInterface.Create */ __fastcall TIProperty(void) : Virtintf::TInterface() { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~TIProperty(void) { }
-
- };
-
- class PASCALIMPLEMENTATION TICompInfo : public Virtintf::TInterface
- {
- typedef Virtintf::TInterface inherited;
-
- public:
- virtual void __fastcall ClearEvent(int Index) = 0;
- virtual System::AnsiString __fastcall GetClassName(void) = 0;
- virtual int __fastcall GetEventCount(void) = 0;
- virtual Typinfo::PPropInfo __fastcall GetEventInfo(int Index) = 0;
- virtual System::AnsiString __fastcall GetEventValue(int Index) = 0;
- virtual void * __fastcall GetComponentHandle(void) = 0;
- virtual System::AnsiString __fastcall GetNamePath(void) = 0;
- virtual int __fastcall GetSubInfoCount(void) = 0;
- virtual TICompInfo* __fastcall GetSubInfo(int Index) = 0;
- public:
- /* TInterface.Create */ __fastcall TICompInfo(void) : Virtintf::TInterface() { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~TICompInfo(void) { }
-
- };
-
- typedef TILibrary* __fastcall (*TInitLibraryFunc)(TIDelphiIDE* App);
-
- //-- var, const, procedure ---------------------------------------------------
- #define LibrarySignature "COMPLIB0056"
- extern PACKAGE TIDelphiIDE* DelphiIDE;
- extern PACKAGE TILibrary* CompLib;
- extern PACKAGE Word CF_COMPONENTS;
- extern PACKAGE bool __fastcall PossibleStream(const System::AnsiString S);
- extern PACKAGE void __fastcall CopyStreamToClipboard(Classes::TMemoryStream* S);
- extern PACKAGE Classes::TMemoryStream* __fastcall GetClipboardStream(void);
-
- } /* namespace Libintf */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Libintf;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // LibIntf
-